LABEL 0OO0OOO00PR1NTER0O1/5100CC cX OB jlC T/tfE AUi F RE SOURCLF ILE>S yMBOL/TSF lLL«-«-0UQOOOO OBJECT /READ 



# 



10 

12 
13 

15 
16 

18 
19 

A 20 

21 

g 22 

a fl) 23 

I " 

Q _ 

28 

• " 
30 

31 "" 

4h 32 

33 

34 

# 3 S 

36 

37 ~ 

A 38 



SM^l/% W 



u 



41 

i„| 

i.: 

Mil 

4: 

-)0 



1 

2 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 



13 
14 



16 
17 
18 



19 
20 
21 



22 
23 
24 
25 
26 
27 



28 
29 



30 
31 
32 
33 



34 
35 
36 

37 ~ 
38 



40 
41 
42 



43 
44 
45 



46 
47 
48 



49 
50 



52 
53 



COMMENT! 



* TITLE* B5500/Bb700 MARK XIV SYSTEM RELEASE * 

* FILE ID! SYMBOL/TSFILL TAPE I D « 5YMBDL2/F 1LE000 * 

* this material is proprietary rr; burroughs corporation jl 
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oooooon 

00000012 



* AND IS NOT TO BE REPRODUCED* USED* UK DISCLOSED * 00000013 

* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 00000014 

* HRTTTFN AUTHOR T Z A T 1 QN OF THE PATFNT nTVISTDN I1F * 000000) 5 
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* 
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00000016 
00000017 
000000,18 



AA3202C6 AA332366 AA386657 

TSFILL/PHT 
LAST PATChEO IP/11/73 



*; 



BEGIN 

INTEGER COMMON; COMMENT FIRST DECLARED; 
DEFINE N0LIST8C0H|X0N»1«; St, SUPPRESS ALL 



FILE 
FILE 



MCP 
INT 



DISK 
DISK 



FILE DISK DISK 

r T I C DD T MT I, f 1 



FILE PRINT AC 2* 15 d; 
ARRAY CARDC0I3]* 
ARRAY P R T S T ' ? 9 3 ? 



■COMMON*!*; % SUPPRESS ALL PRINTED OUTPUT 
SERIAL «TSSMCP""STUFF"(2* iO»3Q); 
SERIAL "TSSlNT" M STUFF n C2/lO,30 3; 

: S£RlALrH2003"TS5"»PRT"(?*30*SA\/F 99Q)i 

!#15)J 



DEFINE NAMESIZE*800*; 
ARRAY NAMECO«NAMESUE-n; 

DEFINE NAMSST7E*1023«J 



ARRAY NAMSC01NAMSSUE-1]; 
INTEGER PRTMAX#NAMSMAx; 

DFFINF I NAMF , Sl Z F?? . OOf ? 



ARRAY INAMECOtINAMESlZE-lj; 
DEFINE INAMSSIZE»300#; 
ARRAY IMAMSrOlTNAhSSlZE-llJ 



INTEGER INAMAX*INAMSMAX; 

INTEGER L; 

RFAI, LEVFTI ; 



REAL OPTUCOMPILE-TIME OPTION WURO.ONE BIT PER OPTION 
DEFINE 
CHECK). TNK - OP T T f a7M ■)t. 



DCP 

DEBUGGING 
Jill 



= OPT . C/16S 1 3*# 
~ OPT, C^»5* 1 ]*# 
- QPI^UAlU£t 



OUMPP a 
SAVERESULTS a 
SHARFDISK ■_ 



OPT.[43»13#* 
0PT.C42U J## 

QPT.ruin*, 



STATISTICS 

TWXONLY 
,\U , XMEMM , 



= QPT.[40<13** 
=» 0PT.C39! 13** 
* QPJUjLUjJJJjLi 



BftiOOLOAD 

SEPTICTANK 

PACKFtS 



OPT, C 37* 1 3*# 
OPT,C36*13#* 
QP T. t35U 3» * 



MONITORR 
MAXOPT 
ALPHA ARRAY, 



* OPT. [34*13** 
= 14*; J! UPDATE AS 
QPTI.ONSCn!2xMAXQFT3; 



OPTIONS ARE ADDED 



SWITCH FORMAT MCPOPTJ* 
< W CH£CKLINK»), 
( w Q C» w 3 i 



("DEBUGGING")* 

("DFX")* 

("DUMP")* 



("SAVERESULTS")* 

("SHAREOISK")* 

("STATISTICS")* 
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("TWXONLY"), 
("AUXMEM"), 

c w M6 , snniOAn ,, )f 



("SEPTICTANK"), 
("PACKETS"), 
("MQNTTQR"), 



( 



) 



BOUlFANI STREAM PRflfE DliRE ft I T niut A . M ) ; V A| LL Mi 



BEGIN 

SllaA; SKIP N 
RTTDNtaTAI I VJ 



SB; IF SB THEN TALLYJ*!; 



ENU 

X 

STHFAH 



bitqn; 

PBOCFnURE SFTPlUAt NWVALUE 



AL 



BEGIN 

0I*»A1 SKIP 
FMD SFTRTT1 



n db; dsisset; 



1 

PROCEDURE 
BFGIM 



PRINTDPTIUNS; 



INTEGER I; 

FORMAT MCPHDR("TSMCP,">A5, W COMPIlE»TIME OPTIONS*"); 

WRITECPKINT[DBL3 » VCPHDR,1 . EV£ I )f 



FOR H»9»10*0»l#2#3'4»t3*l2*S*ll*6#7*8 OU 
IF 8IT0NC0PTM7-I ) ThfN 

WH1T E CPR I NT »MCPQPTf H i* 



WRITE(PRlNTtOBL3); 
END OF PRIN70PTI0NS; 
PRU^EDURF F It I OPT IONS ,8 



WRITE(PRINTCDBL3); 



FILL options:*] 

"CHECKLIN»,"KS 
"DCPARRAY"^' 



WITH 



'#XCH£CKLINK 



"DT 

M £UQ 

"PRlWTfinR"."F 



"FiESULTHQ , S"LDER 
"SYSN0 %" 
"FU.I SYST"*"AT 



•SXDEBUGGING 

%*UFX 

".Y.DUMP 



"tNaog 
"nextauxm m ,-"emword 

"B6S0nrnRw.wMATTFR 



'SXSaVERESUlFS 

"#XSHAREOI&K 
"rSSTATTSTlf.S 



"DISPOSAL"*" 
"PSEUOO "*" 
"SLTMQNIT"*"ORFILE 



",XNDT TWXONLY 
",5SAUXMEM 
*.«B6s0fll riAn 



",.*3EP riCTA,vj»\ 

"VPACKETS 
"^MONITOR 



w last";xnever used 

boolean stream procedure efluaks'd);- 

BFG IN 



su*s; di«*d; 

IF 16 SC S DC THEN 

equalibt ally; 



TALLYlsi; 



end equal; 

PROCEDURE SETOPTIONS; 
BEGIN 



INTEGER I; 

FOR I«=0 STEP 1 UNTIL MAXOPT"! 

IF NOT BIT0N(0PT»47-I ) THEN 



UO 



IF EQUAL(CAR0m,0PTI0NSC2xn) 
BEGIN 

SETBIT(QPT»47»U; 



THEN 
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£M. 



I*»MAXOPT+i;%FALL THRU 

end; 

SFTQPTIQNSi 



STREAM PROCEDURE MOV 

BEGIN SI:»S; DIt 

PROCE D URE WRITEARRAY 



00096000 
00097000 
QQO99QQ0 



EC5>*D#W); V*LUL Mi 

«o; dsi* w wds end; 
c/wwordsizej; valle hordsize; 



00099000 

00100000 
ooloiooo 



BEGIN 
STRFAM 



INTEGER INGRDSUEJ ARRAY ACC31 
PROCEDURE ZFRQBUFC HJ/ H t ^lN l it S E &i 3C I US » = 8L I T"Q" ? END/ 



00102000 
00103000 
0Q1 O4Q QQ 



INTEGER I,SE6S; 
SEGS:*((W0RDSIZE 
FOR I.»Q STEP 1 



ARRAY BuFfO:29i; 
+29) OIV 30) - 11 
UNTIL 5£GS 00 B£G 



UL 



00105000 
00106000 
0010 71 



'OOP 



ZEROBUF(BUF) 
MOVECACSOxlJ 

WRITECDISK«3 



*BUF*30)i 
0,BtiF[*3) fU\li 



END writearray; 

BOOLEAN STREAM PROCEDURE SPACES(S); 
BEGI N 



ooicaooo 

0C109C0C 
C C ll OQQQ 



00111000 
00112000 

00113000 



LABEL EX 

sius; 
aur s o* 



it; 



THEN JUMP UuT Tu EXlXi STIgS it ♦,!)!. 



00114000 
00115000 
00116QQQ 



TALLYi-ii 

EXIT» 

SPACFSiaTALLY; 



00117000 
OOU8000 
O0U9Q00 



END SPACES; 

INTEGER STREAM PROCEDURE ItV(S*T)# 

BEGIN 



s 1 1 * s ; s 

DI»*L0C 



I laS 

icv; 
u 



1+4; 



00120000 
00121000 

0122000 



00123000 
00124000 
00125000 



SI:=S; DI»=T 

end icv; 

RFAI, PROCEDU R E U 



; si:=si+2; os:=2 qct; 

CTAU C N Jj - .. 



00126000 
00127000 
QO128QO0 



VALUE n; 
INTEGER 
0CTALI«N.rft5 



n; 

I3UCTF N>7 THEN OCT AL C N . T24 1 2 1 J JELSE 0)C3I9I39JJ 



00129000 
00130000 
00131000 



PROCEDURE SEflUENCE(ARAf»Llrt/lNX#GRTK); 
VALUE lim; 

ARRAY ARAYL03; 



00132000 
00133000 
00134000 



INTEGER LIM* 

BOOLEAN GRTR 

BEGIN 



INXJ 



00135000 
00136000 
0013700Q 



INTEGER 
STREAM P 
VAI.lt 



i*l; 

ROCE 
E D.3 



DURE M0VE(5,0,0J2,M32)> 
^»M3?; 



00138000 

00139000 

JJQUOQOQ 



BEGIN 

Si * » 
3?/ 



s; 011*01 

DSts3? wds); ps»8M32 wos; 



00141000 
00142000 
00143000 



END MOVE 

I.ULIH'1 
WHILEtIN 



x;si! = i-i^o DO 



BEGIN 

ARAY 
U«8 



00144000 
00145000 
00146000 



UlM3l*ARAY[n; 



WHIL 

IF L 

_B£G_L 



E LI 
>0 T 
N 



^>INX:siNX+l AND GRTR DU L»=L+i; 
HEN 



00H7000 
00148000 
0Q1 49 QQ Q 



00150000 
00151000 
00152000 



M0VE(ARAY[I*l]>AljAYin#ltt37l6],L,U3l5))) 
ARAYU*L3l«ARAY[LIMj; 



e n d; 
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00154000 
00155000 
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end; 
end sequence^ 

Rfini FAN PROCEnilHF 



value one>twc; 
real qne'twq; 
array namscq]; 



GRFrtTEH<U N L /THU » NAMS ) > 



BEGIN 

INTEGER 
B.EJLIU 



STREAM PROCEDURE C QmP AR I S.ONC ft 1* 1*2 ) ; 



LABEL UNEfl^EXlT; 

su*wi; cn*w2; 

8 (IF SCXCC THEN JUMP 



OUT TO tINEfl); 



go to exit; 

UNEQI 



IF SC<DC THEN TALlY»»2 ELSE TALLYl»l> 

EXIT> 

COMPARISON i STALLY; , 



END COMPARISON; 

INTEGER L1»L2>L#A1jA2#A»C; 

AltffHNE.rBi; 15 U APisTWritt 33*15,3/ 



L»«MIN(Ll»«OKE.ClBM5 3*L2l«T«O.C18*i5 3); 
IF L>0 THEN 
WHTI.F l„>A A NT 



(C»*C0MPARIS0NCNAMS[A1 J»Na.MS[A23)) = 
BEGIN 

A; g A -*-i; 



DO 



C Nftf 



Ai :»aj+i; 

A2*aA2+i; 



GREATER. 'IF C-0 ThEN Ll >L2 ELSE C= .1 ; 
END GREATER; 
PROCEDURE FlLLARRAYCNAMS»NAMt»NAMAX»NMSlMAX#aTLFF»MCP)J 

VALUE MCP; 

ARRAY NAMS,NAMECO]l 

INTEGER NAMAX>NMSIMAX; 



file stuff; 
boolean mcp; 

RFGIN 



LABEL EOS; 

INTEGER NMSI#NAMI,L»KLASSJ 

WHILE TRUE DO 



BEGIN 

READ<STgFF,4,CAKD[*mEUiJ]; 
I F HCP THFN 



SETOPTIONS; 
NAMEtNAMII«ICVCCAR0»KLAb5)-i29Jl»NMSj; 
NAME[MAMM.L3l5lt«KLiSS-U ; 



NAMAX»sMAx(NAMAX#NANiI)/ 

lj«3; 

wh ile 5pac e » ( card el3 ? 



NAMECNAMn.Cl@U53S»L; 
M0VE(CAR0tl3#NAMS[NMSn*L); 

nhsi?»nmsi*l ; 



OU L»«L"i; 



end; 
eos; 

NMSIMAXI'NMSi; 



IF MCP THEN TWXONLYJSREALCNUT B00LEAN{TWX0NLY ) )i 
IF MCP AND AUXMEMM«1 THEN MONITQRR » »0} 
CLQSFfSTUrrU 
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END FILLARR 
PROCEDURE S 
V AL U E IM AX i 



ay; 

ortanol.I!>T(Imax>name#nams); 



-O-tr 



INTEGER 

ARRAY N 

GJJN 



imax; 

AME»NAMSt03* 



INTEGER 
ARRAY A 

FO RM AT 



i; 

LFACO 
FUflf 



SNAMESUE' 



•\}i ARRAY 
: ";5x a ))> 



l1NE[0» 14 3; 



FOR I«»0 STE 

SEQUENCE(ALF 

GREaTERC 



P 1 UNTIL IMAX DO ALFACI3»*1/ 

A#IMAX!*IMAX+I*i» 

K AMF [ Al F A U M AX J 3 1> N AMI, t Al. F A [ I J 3 1 N AM S ) ) 



IMAX.sI 
IF NOLI 
I F IMA X 



MAX-1 

ST TH 

GTR 



EN ELSE 
I N AME S IIC 



THE\ PHINTQPTI0NS8 



FOR 11*0 STEP 1 UNTIL ImAX OU 
BEGIN 
IF NOLTST THEN WANE f I 1 . Cd : 10 3 t g ALF A F 1 3 FLSE 



BEG 

WRI 
MOV 



IN 
TECH 

E(NAM 



NEC*]#F»QCTAL(I+129)*0C]ALCALFACIJ+I29))j 
SCNAMEf 13 ,U3tlSJ3M,.lNE[23/ 



NAME[l3.Cia»lb3); 
MOVE«NAMS[NAMEt ALF A[ 113. 1 331153 INLINE £8 3* 
NA M ErAL FA ril3itlf H1'i 3)» 



NAMECI3. 

writecpr 
end; 



C8U03 ! = A L P A L 1 3 > 
lNT»15*LINEt*3>> 



end; 
end sortandlist; 

LEV£Lf*«XV.2 



«; % 5 CHR - LEFT JUSTIFIED 



FILLOPTIONS; 
FlLLARRAYCNA 
F IL LARR AYC I N 



s0rtandlist( 
sortandlistc 

PRTSmmiii f 



MS* NAME* PR r MAX* i\Am3 MAX >HCP* TRUE )i 
AM S> I N AME, lNAMAX* I N>*MSMAX/I'>iT»FAL SE)^ 



PRTMAX»NAME»NAMS)J WRITECPRINTCPAGE3); 

INAMAX*INAM£#INAMS); 

VELJ . . 



prtscoi3«=opt; 
prtsco2] :=prtmax; 

PRTSr03]8=NAMSMAX; 



PRTSC043*»IN 
PRTSC053»*IN 
WRITEARRAYfP 



amax; 

amsmax; 

ptsoq?; 



WRITEARRAY(N 
WRITEARRAY(N 
HR I TE ARR AYd 



AME'PRTMAX+i); 
AMS*NAMSMAX); 
N AM E^IN AMA X- H ji 



E ND, 



WRITEARRAYCI 
LOCKCDISK,*) 



KAMS* INAMSMAXJi 

; 



End;end. LAST 
00000000)x£A4lYE 
E Y« 3 THE N " !l_£k 



CARD ON 0CR0IN« TAPE 
SF 3700000U T 0076 
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-0-0-2 
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002 
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_g_o_2 
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002 
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_Q_0_2 
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30000 
5 1000 



002 
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52000 
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99999999 

IF R,C25»83»MA5K. [25*83 OR K 

0000000000000000 )x2A4l YD 



'4;l 

141)1 



5.. 
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